00100		SUBROUTINE CONVT
00200		COMMON/Q/ RN(20000),PWDS(2500) ,RSTFAC(120),STFF(120),
00400		1 V(200),JR(120),P1,P2,I,M
00500		COMMON JY,L,RJH,RJD,RDIS /RS/JW(120)
00550		
00700		J=1
00800	1	L=PWDS(J)
00810		K=L+1
00900		A=RN(K)
01000		IF(A.LT.5.OR.(A.GT.10.AND.A.NE.20))GO TO 2
01010		Z=RN(L)
01100		IF(A.NE.6)GO TO 3
01200		RN(K)=13
01300		GO TO 2
01400	3	IF(A.NE.5)GO TO 4
01500		RN(K)=10
01600		IF(Z.LT.4)GO TO 10
01700		X=RN(L+5)
01800		RN(L+5)=RN(L+6)
01900		RN(L+6)=X
02000		GO TO 2
02100	4	IF(A.NE.7)GO TO 5
02200		RN(K)=17
02300		GO TO 10
02400	5	IF(A.EQ.8)RN(K)=5
02500		IF(A.EQ.9)RN(K)=6
02600		IF(A.NE.10)GO TO 6
02700		RN(K)=8
02800	 	GO TO 10
02900	6	IF(A.EQ.20)RN(K)=7
03000		IF(A.NE.18)GO TO 2
03100	10	FORMAT(' ITEM ',I3,', CODE ',F3.0)
03200		TYPE 10,J,A
03300	2	A=L+Z+3
03400		J=J+1
03500		IF(A.EQ.PWDS(J))GO TO 1
03600		END